CP/M macro ASSEM 2.0 



#001 



*** Cbios For CP/M Ver. 2.2 *** 



***************************************************************** 



* CBIOS FOR CP/M VER 2.2 FOR DISK JOCKEY 2D CONTROLLER (ALL 

* REVS). HANDLES DISKETTES WITH SECTOR SIZES OF 128 BYTES 

* SINGLE DENSITY, 256, 512, 1024 BYTES DOUBLE DENSITY. 
* 

* WRITTEN BY BOBBY DALE GIFFORD. 

* 9/1/79 
* 

* CUSTOMIZED BY JAY O'BRIEN. 

* 4/12/81 
* 

* MODIFIED FOR ADDITIONAL PRINTER ON PORT WITH PRINTER BUSY 

* OH PORT 5 BIT 1 

* 11/9/81 
* 

* DISK MAP OF SECTORS USED BY COLD BOOT, WARM BOOT, FIRMWARE, 

* AND CP/M: 



* TRK SEC 1 = FIRST SECTOR OF COLD BOOT. 



* 





2 


= 


COLD BOOT 256. 


* 





3 


= 


COLD BOOT 512. 


* 





4 


= 


COLD BOOT 1024. 


* 





5 


= 


WARM BOOT 256. 


* 





6 


= 


WARM BOOT 512. 


* 





7 


= 


WARM BOOT 1024. 


* 





3 


= 


COLD/ WARM BOOT. 


* 





9 


= 


FIRMWARE. 


* 





10 


= 


FIRMWARE+80H. 


* 





11 


= 


FIRMWARE+100H 


* 





12 


= 


FIRMWARE+180H. 


* 





13 


= 


FIRMWARE+200H. 


* 





14 


= 


FIRMWARE+280H. 


* 





15 


= 


FIRMWARE+300H. 


* 





16 


SB 


FIRMWARE+380H. 


* 





17 


= 


CCP. 


* 





10 


= 


CCP+80H. 


* 





12 


= 


CCP+100H. 


* 





14 


= 


CCP+180H. 


* 





16 


= 


CCP+200H. 


* 





18 


= 


CCP+280H. 


* 





20 


= 


CCP+300H. 


* 





22 


= 


CCP+330H. 


* 





24 


= 


CCP+400H. 


* 





26 


= 


CCP+480H. 


* 
* 


1 




— 


REST OF CP/M. 



E700H 

80H 

80H 

80H 

80H 

80H 

80H 

3200H 

E400H 

E480H 

E500H 

E580H 

E600H 

E680H 

E700H 

E780H 

2D00H 

2D80H 

2E00H 

2E80H 

2F00H 

2F80H 

3000H 

3030H 

3100H 

3180H 

3200H-4FFFH 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



cSiog^, /W 




■ 'I I' 

I A) ' 







***************************************************************** 



TITLE '*** Cbios For CP/M Ver. 2.2 ***' 

***************************************************************** 

* * 

* THE FOLLOWING REVISION NUMBER IS IN REFERENCE TO THE CP/M * 

* 2.0 CBIOS. * 

* * 



CP/M MACRO ASSEM 2.0 #002 *** Cbios For CP/M Ver. 2.2 *** 

***************************************************************** 



001E 
0016 



REVNUM EQU 30 
CPMREV EQU 22 



;CBIOS REVISION NUMBER 
j CP/M REVISION NUMBER 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES RELATE THE THINKER TOYS 2D CONTROLLER. * 

* IF THE CONTROLLER IS NON STANDARD (0E000H) ONLY THE ORIGIN * 

* EQUATE NEED BE CHANGED. THIS VERSION OF THE CBIOS WILL WORK * 

* WITH 2D CONTROLLER BOARDS REV 0,1,3,3.1,4. * 

* * 

***************************************************************** 



E000 
E400 
E403 
E406 
E409 
E40C 
E40F 
E412 
E415 
E418 
E41B 
E421 
E427 
E42A 
E42D 
E430 



ORIGIN 


EQU 


0E000H 








DJRAM 


EQU 


ORIGIN+400H ; 


DISK 


JOCKEY 


2D 


DJCIN 


EQU 


DJRAM+3H ; 


DISK 


JOCKEY 


2D 


DJCOUT 


EQU 


DJRAM+6H 


•DISK 


JOCKEY 


2D 


DJHOME 


EQU 


DJRAM+9H 


•DISK 


JOCKEY 


2D 


DJTRK 


EQU 


DJRAM+0CH 


•DISK 


JOCKEY 


2D 


DJSEC 


EQU 


DJRAM+0FH 


•DISK 


JOCKEY 


2D 


DJDMA 


EQU 


DJRAM+0 1 2H ; 


DISK 


JOCKEY 


2D 


DJREAD 


EQU 


DJRAM+1 5H 


•DISK 


JOCKEY 


2D 


DJWRITE 


EQU 


DJRAM+18H 


•DISK 


JOCKEY 


2D 


DJSEL 


EQU 


DJRAM+1BH ; 


•DISK 


JOCKEY 


2D 


DJTSTAT 


EQU 


DJRAM+21H 


■DISK 


JOCKEY 


2D 


DJSTAT 


EQU 


DJRAM+2 7H 


•DISK 


JOCKEY 


2D 


DJERR 


EQU 


DJRAM+2AH 


•DISK 


JOCKEY 


2D 


DJDEN 


EQU 


DJRAM+2DH 


•DISK 


JOCKEY 


2D 


DJSIDE 


EQU 


DJRAM+30H 


•DISK 


JOCKEY 


2D 



RAM ADDRESS 

CHARACTER INPUT ROUTINE 

CHARACTER OUTPUT ROUTINE 

TRACK ZERO SEEK 

TRACK SEEK ROUTINE 

SET SECTOR ROUTINE 

SET DMA ADDRESS 

READ ROUTINE 

WRITE ROUTINE 

SELECT DRIVE ROUTINE 

TERMINAL STATUS ROUTINE 

STATUS ROUTINE 

ERROR, FLASH LED 

SET DENSITY ROUTINE 

SET SIDE ROUTINE 



***************************************************************** 
* * 

* 
* 
***************************************************************** 



* EQUATES FOR MY SYSTEM. J.J. O'BRIEN 
* 



E800 = 



MSDV 



EQU 



0E800H 



;VIDEO DRIVER FOR MSDV 



0033 
9000 
BD00 
C500 
D300 
0004 
0030 
0100 
00C0 



***************************************************************** 

* * 

* CP/M SYSTEM EQUATES. IF RECONFIGURATION OF THE CP/M SYSTEM * 

* IS BEING DONE, THE CHANGES CAN BE MADE TO THE FOLLOWING * 

* EQUATES. * 

* * 

***************************************************************** 



MSIZE EQU 

BIAS EQU 

CCP EQU 

BDOS EQU 

BIOS EQU 

CDISK EQU 

BUFF EQU 

TPA EQU 

INTIOBY EQU 



56 

(MSIZE-20)*1024 

2D00H+BIAS 

CCP+800H 

CCP+1600H 

4 

80H 

100H 

192 



MEMORY SIZE OF TARGET CP/M 
MEMORY OFFSET FROM 20K SYSTEM 
CONSOLE COMMAND PROCESSOR 
BDOS ADDRESS 
CBIOS ADDRESS 

ADDRESS OF LAST LOGGED DISK 
DEFAULT BUFFER ADDRESS 
TRANSIENT MEMORY 
INITIAL IOBYTE 



t° 



fa ' 



I CO OOoQ 



CP/M macro ASSEM 2.0 



#003 



*** Cbios For CP/M Ver. 2.2 *** 



0003 = 

0000 = 
0005 = 



IOBYTE EQU 
WBOT EQU 
ENTRY EQU 



3 


5 



7 IOBYTE LOCATION 

;WARM BOOT JUMP ADDRESS 

;BDOS ENTRY JUMP ADDRESS 



**************************************************************** 

* * 

* THE FOLLOWING ARE INTERNAL CBIOS EQUATES. MOST ARE MISC. * 

* CONSTANTS. * 

* * 

***************************************************************** 



■ ( 



r 



II oco ■ // 



000 A = 


RETRIES 


EQU 


10 


000D = 


ACR 


EQU 


SDH 


000A = 


ALF 


EQU 


0AH 


0003 = 


AETX 


EQU 


3 


0006 = 


AACK 


EQU 


6 „ , 


0019 = 


CLEAR 


EQU 


(1 9H «- 


0004 = 


MAXDISK 


EQU 


4 


0008 = 


DBLSID 


EQU 


S 



MAX RETRIES ON DISK I/O BEFORE ERROR 

A CARRIAGE RETURN 

A LINE FEED 

A ETX CHAR 

A ACK CHAR 

CLEAR SCREEN FOR MSDV 

MAXIMUM # OF DISK DRIVES 

SIDE BIT FROM CONTROLLER 



***************************************************************** 

* * 

* THE JUMP TABLE BELOW MUST REMAIN IN THE SAME ORDER, THE * 

* ROUTINES MAY BE CHANGED, BUT THE FUNCTION EXECUTED MUST BE * 

* THE SAME. * 

* * 

***************************************************************** 



D300 



ORG 



; CBIOS STARTING ADDRESS 



D300 


C3A0D3 




JMP 


D303 


C3FCD3 


WBOOTE 


JMP 


D306 


C340D6 




JMP 


D309 


C34CD6 




JMP 


D30C 


C361D6 


COUT 


JMP 


D30F 


C381D6 




JMP 


D312 


C376D6 




JMP 


D315 


C36CD6 




JMP 


D318 


C390D4 




JMP 


D31B 


C3C6D4— - - 




JMP 


D31E 


C392D4 




JMP 


D321 


C385D4- 




JMP 


D324 


C38AD4 




JMP 


D327 


C369D5 




JMP 


D32A 


C362D5 




JMP 


D32D 


C38CD6 




JMP 


D330 


C397D4 




JMP 


D333 


C31BE4 


DJDRV 


JMP 



CBOOT 

WBOOT 

CONST 

CONIN 

CONOUT 

LIST 

PUNCH 

READER 

HOME 

SETDRV' 

SETTRK 

SETSEC 

SETDMA 

READ 

WRITE 

LISTST 

SECTRAN 

DJSEL 



COLD BOOT ENTRY POINT 

WARM BOOT ENTRY POINT 

CONSOLE STATUS ROUTINE 

CONSOLE INPUT 

CONSOLE OUTPUT 

LIST DEVICE OUTPUT 

PUNCH DEVICE OUTPUT 

READER DEVICE INPUT 

HOME DRIVE 

SELECT DISK 

SET TRACK 

SET SECTOR 

SET DMA ADDRESS 

READ THE DISK 

WRITE THE DISK 

LIST DEVICE STATUS 

SECTOR TRANSLATION 

HOOK FOR SINGLE.COM PROGRAM 



***************************************************************** 

* * 

* SIGNON MESSAGE OUTPUT DURING COLD BOOT. * 

* * 

***************************************************************** 



D336 0D0A0A 



PROMPT DB 



ACR, ALF, ALF 



CP/M macro ASSEM 2.0 

D339 35 

D33A 36 

D33B 4B2043502F 

D348 32 

D349 2E 

D34A 32 

D34B 2C20436269 

D357 332E 

D359 30 

D35A 0D0A 

D35C 456F722054 

D387 402030 



D33A 45 



D38B 30 

D38C 3030482E 
D390 0D0A00 



#004 

DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 

IF 

DB 

ELSE 

DB 

ENDIF 

IF 

DB 

ELSE 

DB 

END IF 

DB 

DB 



*** Cbios For CP/M Ver. 2.2 *** 

;CP/M MEMORY SIZE 



•0'+MSIZE/l0 
'0*+(MSIZE MOD 10) 
'K CP/M Vers. ' 
CPMREV/l0+'0' 



;CP/M VERSION NUMBER 



; CBIOS REVISION NUMBER 



(CPMREV MOD 10)+ '0* 

' , Cbios rev ' 

REVNUM/l0+'0' 

REVNUM MOD 10+'0* 

ACR,ALF 

'For Thinker Toys Disk Jockey 2D Controller ' 

■@ 0' 



ORIGIN/4096 > 10 
ORIGIN/4096+ ' A ' -10 

ORIGIN/4096+*0' 



; CONTROLLER ORIGIN (HEX) 



(ORIGIN/2 56 AND 0FH) > 10 
(ORIGIN/2 56 AND 0FH)+'A'-10 

(ORIGIN/2 56 AND 0FH)+'0' 

'00H. ' 
ACR,ALF,0 



***************************************************************** 

* * 

* UTILITY ROUTINE TO OUTPUT THE MESSAGE POINTED AT BY H&L, * 

* TERMINATED WITH A NULL. * 

* * 

***************************************************************** 



D393 7E 


MESSAGE MOV 


A,M 


D394 23 


I NX 


H 


D395 A7 


ANA 


A 


D396 C8 


RZ 




D397 E5 


PUSH 


H 


D393 4F 


MOV 


C,A 


D399 CD0CD3 


CALL 


COUT 


D39C El 


POP 


H 


D39D C393D3 


JMP 


MESSAGE 



GET A CHARACTER OF THE MESSAGE 

BUMP TEXT POINTER 

TEST FOR END 

RETURN IF DONE 

SAVE POINTER TO TEXT 

OUTPUT CHARACTER IN C 

OUTPUT THE CHARACTER 

RESTORE THE POINTER 

CONTINUE UNTIL NULL REACHED 



***************************************************************** 

* * 

* CBOOT IS THE COLD BOOT LOADER. ALL OF CP/M HAS BEEN LOADED IN * 

* WHEN CONTROL IS PASSED HERE. * 

* * 

***************************************************************** 



D3A0 310001 
D3A3 CD3AD7 
D3A6 2136D3 
D3A9 CD93D3 
D3AC AF 



CBOOT 



LXI 


SP,TPA 


CALL 


TINIT 


LXI 


H, PROMPT 


CALL 


MESSAGE 


XRA 


A 



?SET UP STACK 

INITIALIZE THE TERMINAL 

;PREP FOR SENDING SIGNON MESSAGE 

?SEND THE PROMPT 

; SELECT DISK A 



CP/M MACRO ASSEM 2.0 #005 



*** 



Cbios For CP/M Ver. 2.2 *** 



D3AD 32E9D8 
D3B0 320490 



STA 
STA 



CPMDRV 
CDISK 



***************************************************************** 

* * 

* GOCPM IS THE ENTRY POINT FROM COLD BOOTS, AND WARM BOOTS. IT * 

* INITIALIZES SOME OF THE LOCATIONS IN PAGE 0, AND SETS UP THE * 

* INITIAL DMA ADDRESS (80H). * 

* * 

***************************************************************** 



;SET UP INITIAL DMA ADDRESS 

; INITIALIZE JUMP TO WARM BOOT 

; INITIALIZE JUMP TO BDOS 
; ADDRESS IN WARM BOOT JUMP 

; ADDRESS IN BDOS JUMP 

;A <- 

;DISK JOCKEY BUFFER EMPTY 

;SET BUFFER NOT DIRTY FLAG 

;JUMP TO CP/M WITH CURRENTLY SELECTED DISK IN C 

; BEGINNING OF INITIAL COMMAND 
; COMMAND BUFFER 
-CMNDBEG+1 ; LENGTH OF COMMAND 



D3B3 


218000 GOCPM LXI 


H,BUFF 


D3B6 


CD8AD4 


CALL 


SETDMA 


D3B9 


3EC3 


MVI 


A, (JMP) 


D3BB 


320000 


STA 


WBOT 


D3BE 


320500 


STA 


ENTRY 


D3C1 


2103D3 


LXI 


H,WBOOTE 


D3C4 


220100 


SHLD 


WBOT+1 


D3C7 


2106C5 


LXI 


H,BDOS+6 


D3CA 


220600 


SHLD 


ENTRY+1 


D3CD 


AF 


XRA 


A 


D3CS 


32EED8 


STA 


BUFSEC 


D3D1 


32D5D5 


STA 


BUFWRTN 


D3D4 


3A0400 


LDA 


CDISK 


D3D7 


4F 


MOV 


C,A 


D3D8 


11FBD3 


LXI 


D,CMNDBEG 


D3D3 


2108BD 


LXI 


H,CCP+8 


D3DE 


3E01 


MVI 


A,CMNDEND 


D3E0 


3207BD 


STA 


CCP+7 


D3E3 


47 


MOV 


B,A 


D3E4 


CD37D6 


CALL 


MOVLOP 


D3E7 


3AF9D3 


LDA 


CWFLG 


D3EA 


A7 


ANA 


A 


D3EB 


3AFAD3 


LDA 


AUTOFLG 


D3EE 


CAF2D3 


JZ 


CLDBOT 


D3F1 


IF 


RAR 




D3F2 


IF CLDBOT RAR 




D3F3 


DA00BD 


JC 


CCP 


D3F6 


C303BD 


JMP 


CCP+3 


D3F9 


00 CW 


FLG DB 






; ENTER CP/M 

; COLD/WARM BOOT FLAG 

***************************************************************** 

* * 

* THE FOLLOWING BYTE DETERMINES IF AN INITIAL COMMAND IS TO BE * 

* GIVEN TO CP/M ON WARM OR COLD BOOTS. THE VALUE OF THE BYTE IS * 

* USED TO GIVE THE COMMAND TO CP/M: 



* = NEVER GIVE COMMAND. 

* 1 = GIVE COMMAND ON COLD BOOTS ONLY. 

* 2 = GIVE THE COMMAND ON WARM BOOTS ONLY. 

* 3 = GIVE THE COMMAND ON WARM AND COLD BOOTS. 
* 



***************************************************************** 



D3FA 01 



AUTOFLG DB 



;AUTO COMMAND FEATURE 



:p/m macro assem 2.0 



'306 



*** Cbios For CP/M Ver. 2.2 *** 



************************************ ***** ************************ 

* * 

* IF THERE IS A COMMAND INSERTED HERE, IT WILL BE GIVEN IF THE * 

* AUTO FEATURE IS ENABLED. * 

* FOR EXAMPLE: * 

* * 



CMNDBEG DB 
CMNDEND DB 



* MBASIC MYPROG' 




* 
* 

* * 

* WILL EXECUTE MICROSOFT BASIC, AND MBASIC WILL EXECUTE THE * 

* "MYPROG" BASIC PROGRAM. * 

* * 

***************************************************************** 



D3FB 00 



CMNDBEG DB 
CMNDEND DB 







; INITIAL COMMAND GOES HERE 



***************************************************************** 

* * 

* WBOOT LOADS IN ALL OF CP/M EXCEPT THE CBIOS, THEN INITIALIZES * 

* SYSTEM PARAMETERS AS IN COLD BOOT. SEE THE COLD BOOT LOADER * 

* LISTING FOR EXACTLY WHAT HAPPENS DURING WARM AND COLD BOOTS. * 

* * 

***************************************************************** 



D3FC 


310001 


WBOOT LXI 


SP,TPA 


D3FF 


3E01 


MVI 


A,l 


D400 


= 


WFLG EQU 


$-1 


D401 


A 7 


ANA 


A 


D402 


3E01 


MVI 


A,l 


D404 


3200D4 


STA 


WFLG 


D407 


32F9D3 


STA 


CWFLG 


D40A 


CAB3D3 


JZ 


GOCPM 


D40D 


AF 


XRA 


A 


D40E 


3200D4 


STA 


WFLG 


D411 


4F 


MOV 


C,A 


D412 


GD33D3 


CALL 


DJDRV 


D415 


0E00 


MVI 


C,0 


D417 


CD2DE4 


CALL 


DJDEN 


D41A 


3E00 


MVI 


C,0 


D41C 


CD30E4 


CALL 


DJSIDE 


D41F 


3E0F 


MVI 


A, 15 


D421 


323FD4 


STA 


NEWSEC 


D424 


2100BC 


LXI 


H,CCP-100H 


D427 


225ED4 


SHLD 


NEWDMA 


D42A 


CD3ED4 


CALL 


WARMLOD 


D42D 


0100C2 


LXI 


B,CCP+500H 


D430 


CD12E4 


CALL 


DJDMA 


D433 


0E08 


MVI 


C,8 


D435 


CD0FE4 


CALL 


DJSEC 


D438 


CD72D4 


CALL 


WARMRD 


D43B 


C303C2 


JMP 


CCP+503H 


D43E 


3E0F 


WARMLOD MVI 


A, 15 


D43F 


= 


NEWSEC EQU 


$-1 



;SET UP STACK POINTER 

;TEST IF BEGINNING OR 

; ENDING A WARM BOOT 



;SET COLD/WARM BOOT FLAG 



; SELECT DRIVE A 

; SELECT SINGLE DENSITY 

; SELECT SIDE 

INITIALIZE THE SECTOR TO READ 

;AND THE DMA ADDRESS 

;READ IN CP/M 

;LOAD ADDRESS FOR REST OF WARM BOOT 



; PREVIOUS SECTOR 



CP/M MACRO ASS EM 2.0 #007 



D440 


3C 


INR 


A 


D441 


3C 


INR 


A 


D442 


FE1B 


CPI 


27 


D444 


DA56D4 


JC 


NOWRAP 


D447 


D609 


SUI 


9 


D449 


FE13 


CPI 


19 


D44B 


C8 


RZ 




D44C 


2A5ED4 


LHLD 


NEWDMA 


D44F 


1180FB 


LXI 


D,-480H 


D452 


19 


DAD 


D 


D453 


225ED4 


SHLD 


NEWDMA 


D456 


323FD4 


NOWRAP STA 


NEWSEC 


D459 


4F 


MOV 


C,A 


D45A 


CD0FE4 


CALL 


DJSEC 


D45D 


2100BC 


LXI 


H,CCP-100H 


D45E 


= 


NEWDMA EQU 


$-2 


D460 


110001 


LXI 


D,100H 


D463 


19 


DAD 


D 


D464 


225ED4 


SHLD 


NEWDMA 


D467 


44 


MOV 


B,H 


D4S8 


4D 


MOV 


C,L 


D469 


CD12E4 


CALL 


DJDMA 


D46C 


CD72D4 


CALL 


WARMRD 


D46F 


C33ED4 


JMP 


WARMLOD 


D472 


01000A 


WARMRD LXI 


B, RETRIES* 


D475 


C5 


WRMREAD PUSH 


B 


D476 


CD0CE4 


CALL 


DJTRK 


D479 


CD15E4 


CALL 


DJREAD 


D47C 


CI 


POP 


B 


D47D 


D0 


RNC 




D47E 


05 


DCR 


B 


D47F 


C275D4 


JNZ 


WRMREAD 


D482 


C32AE4 


JMP 


DJERR 



*** Cbios For CP/M Ver. 2.2 *** 

; UPDATE THE PREVIOUS SECTOR 

;WAS IT THE LAST ? 

;YES 



;SAVE THE NEW SECTOR TO READ 

GET THE PREVIOUS DMA ADDRESS 
UPDATE THE DMA ADDRESS 
SAVE THE DMA ADDRESS 

;SET THE DMA ADDRESS 



;SET THE TRACK 
;READ THE SECTOR 

.-CONTINUE IF SUCCESSFUL 
;KEEP TRYING 



***************************************************************** 

* * 

* 3ETSEC JUST SAVES THE DESIRED SECTOR TO SEEK TO UNTIL AN * 

* ACTUAL READ OR WRITE IS ATTEMPTED. * 

* * 

***************************************************************** 



D485 


79 


SETSEC 


MOV 


A,C 


D486 


32E8D8 




STA 


CPMSEC 


D489 


C9 




RET 





;SAVE THE SECTOR NUMBER 
;CP/M SECTOR # 



***************************************************************** 

* * 

* SETDMA SAVES THE DMA ADDRESS FOR THE DATA TRANSFER. * 

* * 

***************************************************************** 



D48A 


60 


SETDMA 


MOV 


H,B 


D48B 


69 




MOV 


L,C 


D43C 


22B5D5 




SHLD 


CPMDMA 


D48F 


C9 




RET 





;HL <- BC 

;CP/M DMA ADDRESS 



CP/M MACRO ASSEM 2.0 #308 *** Cbios For CP/M Ver. 2.2 *** 



D490 0E00 



***************************************************************** 
* 

* 



HOME IS TRANSLATED INTO A SEEK TO TRACK ZERO. 



* 
* 

" * 

***************************************************************** 

HOME MVI C,0 ; TRACK TO SEEK TO 

***************************************************************** 

* * 

* SETTRK SAVES THE TRACK # TO SEEK TO. NOTHING IS DONE AT THIS * 

* POINT, EVERYTHING IS DEFFERED UNTIL A READ OR WRITE. * 

* * 
***************************************************************** 



D492 


79 


SETTRK 


MOV 


A,C 


D493 


32EAD3 




STA 


CPMTRK 


D496 


C9 




RET 





;A <- TRACK # 
;CP/M TRACK # 



***************************************************************** 

* ^ 

* 3ECTRAN TRANSLATES A LOGICAL SECTOR # INTO A PHYSICAL SECTOR * 

* #. * 

* * 
***************************************************************** 



D497 


03 


SECTRAN 


I NX 


B 


D498 


D5 




PUSH 


D 


D499 


C5 




PUSH 


B 


D49A 


CD41D5 




CALL 


GETDPB 


D49D 


7E 




MOV 


A,M 


D49E 


B7 




ORA 


A 


D49F 


IF 




RAR 




D4A0 


91 




SUB 




D4A1 


F5 




PUSH 


PSW 


D4A2 


FAAED4 




JM 


SIDETWO 


D4A5 


Fl 


SIDEA 


POP 


PSW 


D4A6 


CI 




POP 


B 


D4A7 


Dl 




POP 


D 


D4A8 


EB 


SIDEONE 


XCHG 




D4A9 


09 




DAD 


B 


D4AA 


6E 




MOV 


L,M 


D4AB 


2600 




MVI 


H,0 


D4AD 


C9 




RET 




D4AE 


010F00 


SIDETWO 


LXI 


B,15 


D431 


09 




DAD 


B 


D4B2 


7E 




MOV 


A,M 


D4B3 


E608 




ANI 


8 


D4B5 


CAA5D4 




JZ 


SIDEA 


D4B8 


Fl 




POP 


PSW 


D4B9 


CI 




POP 


B 


D4BA 


2F 




CMA 




D4BB 


3C 




INR 


A 


D4BC 


4F 




MOV 


C,A 



;SAVE TABLE ADDRESS 

;SAVE SECTOR # 

;GET DPB ADDRESS INTO HL 

;GET # OF CP/M SECTORS/TRACK 

; CLEAR CARY 

; DIVIDE BY TWO 

;SAVE ADJUSTED SECTOR 

; DISCARD ADJUSTED SECTOR 
; RESTORE SECTOR REQUESTED 
;RESTOR ADDRESS OF XLT TABLE 
;HL <- & (TRANSLATION TABLE) 
;BC = OFFSET INTO TABLE 
;HL <- PHYSICAL SECTOR 



; OFFSET TO SIDE BIT 

;TEST FOR DOUBLE SIDED 

; MEDIA IS ONLY SINGLE SIDED 

; RETRIEVE ADJUSTED SECTOR 

; MAKE SECTOR REQUEST POSITIVE 

;MAKE NEW SECTOR THE REQUESTED SECTOR 
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D4BD Dl 
D4BS CDA8D4 
D4C1 3E80 
D4G3 B5 
D4C4 6F 
D4C5 C9 



POP 


D 


CALL 


SIDEONE 


MVI 


A,80H 


ORA 


L 


MOV 


L,A 


RET 





;SIDE TWO BIT 

; AND SECTOR 



***************************************************************** 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



SETDRV SELECTS THE NEXT DRIVE TO BE USED IN READ/WRITE 
OPERATIONS. IF THE DRIVE HAS NEVER BEEN SELECTED BEFORE, A 
PARAMETER TABLE IS CREATED WHICH CORRECTLY DESCRIBES THE 
DISKETTE CURRENTLY IN THE DRIVE. DISKETTES CAN BE OF FOUR 
DIFFERENT SECTOR SIZES: 

1) 128 BYTES SINGLE DENSITY. 

2) 2 56 BYTES DOUBLE DENSITY. 

3) 512 BYTES DOUBLE DENSITY. 

4) 1024 BYTES DOUBLE DENSITY. 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



***************************************************************** 



D4C6 
D4C7 
D4CA 
D4CC 
D4CF 
D4D0 
D4D2 
D4D5 
D4D7 
D4DA 
D4DD 
D4E0 
D4E3 
D4E6 
D4E8 
D4E9 
D4EA 
D4ED 
D4EE 
D4F0 
D4F1 
D4F2 
D4F5 
D4F6 
D4F7 
D4F9 
D4FC 
D4FF 
D500 
D501 
D504 



79 

32E9D8 

FE04 

D23DD5 

7B 

E601 

C224D5 

3E01 

32EBD8 

32EAD8 

CD20D6 

DA3DD5 

CD27E4 

E60C 

F5 

IF 

215AD5 

5F 

1600 

19 

E5 

CD41D5 

EB 

Dl 

0602 

CD37D6 

110800 

19 

E5 

2A07E0 

23 



D505 7E 
D506 EE03 
D503 6F 



SETDRV MOV 
STA 
CPI 
JNC 
MOV 
AN I 
JNZ 
MVI 
STA 
STA 
CALL 
JC 

CALL 
AN I 
PUSH 
RAR 
LXI 
MOV 
MVI 
DAD 
PUSH 
CALL 
XCHG 
POP 
MVI 
CALL 
LXI 
DAD 
PUSH 
LHLD 
I NX 



MOV 
XRI 
MOV 



A,C 

CPMDRV 

MAXDISK 

ZRET 

A,E 

1 

SETDRV1 

A,l 

TRUESEC 

CPMTRK 

FILL 

ZRET 

DJSTAT 

0CH 

PSW 

H,XLTS 

Jtli f r\ 

D,0 

D 
H 
GETDPB 

D 

B,2 

MOVLOP 

D,8 

D 

H . 

ORIGIN+7 

H 

A,M 

3 

L,A 



;SAVE THE DRIVE # 

CHECK FOR A VALID DRIVE # 

ILLEGAL DRIVE # 

TEST IF DRIVE EVER LOGGED IN BEFORE 

;BIT OF E = -> NEVER SELECTED BEFORE 
; SELECT SECTOR 1 OF TRACK 1 



; FLUSH BUFFER AND REFILL 
;TEST FOR ERROR RETURN 
;GET STATUS ON CURRENT DRIVE 
; STRIP OFF UNWANTED BITS 
;USED TO SELECT A DPB 

; TABLE OF XLT ADDRESSES 



;SAVE POINTER TO PROPER XLT 
;GET DPH POINTER INTO DE 



NUMBER OF BYTES TO MOVE 
MOVE THE ADDRESS OF XLT 
OFFSET TO DPB POINTER 
HL <- &DPH.DPB 

GET ADDRESS OF DJ TERMINAL OUT ROUTINE 
BUMP TO LOOK AT ADDRESS OF 
UART STATUS LOCATION 

; ADJUST FOR PROPER REV DJ 
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D509 


26E3 


MVI 


H, (ORIG 


D50B 


7E 


MOV 


A,M 


D50C 


E603 


ANI 


DBLSID 


D50E 


1116D8 


LXI . 


D,DPB12 


D511 


C217D5 


JNZ 


SIDEOK 


D514 


1156D8 


LXI 


D,DPB12 


D517 


EB 


SIDEOK XCHG 




D518 


Dl 


POP . 


D 


D519 


Fl 


POP 


PSW 


D51A 


17 


RAL 




D51B 


17 


RAL 




D51C 


4F 


MOV 


C,A 


D51D 


0600 


MVI 


B,0 


D51F 


09 


DAD 


B 


D520 


EB 


XCHG 




D521 


73 


MOV 


M,E 


D522 


23 


I NX 


H 


D523 


72 


MOV 


M,D 


D524 


CD41D5 


SETDRV1 CALL 


GETDPB 


D527 


010F00 


LXI 


B, 15 


D52A 


09 


DAD 


B 


D52B 


7E 


MOV 


A,M 


D52C 


E607 


ANI 


7H 


D52E 


326ED5 


STA 


SECSIZ 


D531 


7E 


MOV 


A,M 


D532 


IF 


RAR 




D533 


IF 


RAR 




D534 


IF 


RAR 




D535 


IF 


RAR 




D536 


E60F 


ANI 


0FH 


D538 


32A4D5 


STA 


SECPSEC 


D53B 


EB 


XCHG 




D53C 


C9 


RET 




D53D 


210000 


ZRET LXI 


H,0 


D540 


C9 


RET 





7 CHECK DOUBLE SIDED BIT 
?BASE FOR SINGLE SIDED DP3 ' S 

7 BASE OF DOUBLE SIDED DPB ' S 
;HL <- DBP BASE, DE <- &DPH.DPB 
7 RESTORE DE (POINTER INTO DPH) 
7 OFFSET TO CORRECT DPB 



7 PUT DPB ADDRESS IN DPH 



7 GET ADDRESS OF DPB IN HL 
7 OFFSET TO SECTOR SIZE 

7 GET SECTOR SIZE 



?HL <- DPH 



7SELDRV ERROR EXIT 



***************************************************************** 

* A 

* 

_ * 

* * 

***************************************************************** 



* GETDPB RETURNS HL POINTING TO THE DPB OF THE CURRENTLY 

* SELECTED DRIVE, DE POINTING TO DPH. 



D541 


3AE9D8 GETDPB LDA 


CPMDRV 


D544 


6F 


MOV 


L,A 


D545 


2600 


MVI 


H,0 


D547 


29 


DAD 


H 


D543 


29 


DAD 


H 


D549 


29 


DAD 


H 


D54A 


29 


DAD 


H 


D54B 


1196D3 


LXI 


D.DPZERO 


D54E 


19 


DAD 


D 


D54F 


E5 


PUSH 


H 


D550 


110A00 


LXI 


D,10 


D553 


19 


DAD 


D 



7 GET DRIVE # 
;FORM OFFSET 



7 BASE OF DPH'S 

? SAVE ADDRESS OF DPH 
7 OFFSET TO DPB 
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D554 7E 
D555 23 
D556 66 
D557 6F 
D558 Dl 
D559 C9 



MOV 


A,M 


INX 


H 


MOV 


H,M 


MOV 


L,A 


POP 


D 


RET 





*** Cbios For CP/M Ver. 2.2 *** 

;GET LOW BYTE OF DPB ADDRESS 
;GET LOW BYTE OF DPB 



***************************************************************** 

* * 

* XLTS IS A TABLE OF ADDRESS THAT POINT TO EACH OF THE XLT * 

* TABLES FOR EACH SECTOR SIZE. * 

* * 

************************************************************* 



D55A 43D7 
D55C 63D7 
D55E 98D7 
D560 D5D7 



DW 


XLT128 


DW 


XLT256 


DW 


XLT512 


DW 


XLT124 



XLTS DW XLT128 ;XLT FOR 123 BYTE SECTORS 

XLT FOR 256 BYTE SECTORS 
XLT FOR 512 BYTE SECTORS 
XLT FOR 1024 BYTE SECTORS 

***************************************************************** 

* * 

* WRITE ROUTINE MOVES DATA FROM MEMORY INTO THE BUFFER. IF THE * 

* DESIRED CP/M SECTOR IS NOT CONTAINED IN THE DISK BUFFER, THE * 

* BUFFER IS FIRST FLUSHED TO THE DISK IF IT HAS EVER BEEN * 

* WRITTEN INTO, THEN A READ IS PERFORMED INTO THE BUFFER TO GET * 

* THE DESIRED SECTOR. ONCE THE CORRECT SECTOR IS IN MEMORY, THE * 

* BUFFER WRITTEN INDICATOR IS SET, SO THE BUFFER WILL BE * 

* FLUSHED, THEN THE DATA IS TRANSFERRED INTO THE BUFFER. * 

* * 

***************************************************************** 



D562 79 
D563 32CCD5 
D566 3E01 
D568 06 



WRITE MOV 
STA 
MVI 
DB 



A,C 

WRITTYP 

A,l 

(MVI) OR (B*8) 



;SAVE WRITE COMMAND TYPE 

SET WRITE COMMAND 

THIS "MVI B" INSTRUCTION CAUSES 

THE FOLLOWING "XRA A" TO 

BE SKIPPED OVER. 



***************************************************************** 

* * 

* READ ROUTINE TO BUFFER DATA FROM THE DISK. IF THE SECTOR * 

* REQUESTED FROM CP/M IS IN THE BUFFER, THEN THE DATA IS SIMPLY * 

* TRANSFERRED FROM THE BUFFER TO THE DESIRED DMA ADDRESS. IF * 

* THE BUFFER DOES NOT CONTAIN THE DESIRED SECTOR, THE BUFFER IS * 

* FLUSHED TO THE DISK IF IT HAS EVER BEEN WRITTEN INTO, THEN * 

* FILLED WITH THE SECTOR FROM THE DISK THAT CONTAINS THE * 

* DESIRED CP/M SECTOR. * 

* * 

***************************************************************** 



D569 AF 
D56A 32B3D5 



READ 



XRA 
STA 



A 
RDWR 



;SET THE COMMAND TYPE TO READ 
;SAVE COMMAND TYPE 



***************************************************************** 

* * 

* REDWRT CALCULATES TEIE PHYSICAL SECTOR ON THE DISK THAT * 



CP/M MACRO ASSEM 2.0 



#012 



*** 



Chios For CP/M Ver. 2.2 *** 



* CONTAINS THE DESIRED CP/M SECTOR, THEN CHECKS IF IT IS THE 

* SECTOR CURRENTLY IN THE BUFFER. IF NO MATCH IS MADE, THE 



* 
* 
* 
* 

* * 

************* **************************************************** 



* BUFFER IS FLUSHED IF NECESSARY AND THE CORRECT SECTOR READ 

* FROM THE DISK. 



D56D 


0600 


REDWRT 


MVI 


B,0 


D56E 


= 


SECSIZ 


EQU 


?-l 


D56F 


3AE8D8 




LDA 


CPMSEC 


D572 


F5 




PUSH 


PSW 


D573 


E680 




ANI 


30H 


D575 


4F 




MOV 


C,A 


D576 


Fl 




POP 


PSW 


D577 


E67F 




ANI 


7FH 


D579 


3D 




DCR 


A 


D57A 


05 


DIVLOOP 


DCR. 


B 


D57B 


CA83D5 




JZ 


DIVDONE 


D57E 


B7 




ORA 


A 


D57F 


IF 




RAR 




D580 


C37AD5 




JMP 


DIVLOOP 


D533 


3C 


DIVDONE 


INR 


A 


D5S4 


Bl 




ORA 


Q 


D535 


32EBD8 




STA 


TRUESEC 


D538 


21E9D8 




LXI 


H,CPMDRV 


D53B 


11ECD8 




LXI 


D,BUFDRV 


D58E 


0604 




MVI 


B,4 


D590 


05 


DTSLOP 


DCR 


B 


D591 


CA9FD5 




JZ 


MOVE 


D594 


1A 




LDAX 


D 


D595 


BE 




CMP 


M 


D596 


23 




I NX 


H 


D597 


13 




I NX 


D 


D593 


CA90D5 




JZ 


DTSLOP 



THE IS MODIFIED TO CONTAIN THE LOG2 
OF THE PHYSICAL SECTOR SIZE/123 
ON THE CURRENTLY SELECTED DISK. 

GET THE DESIRED CP/M SECTOR # 

TEMPORARY SAVE 

SAVE ONLY THE SIDE BIT 

REMEMBER THE SIDE 

GET THE SECTOR BACK 

FORGET THE SIDE BIT 

TEMPORARY ADJUSTMENT 

UPDATE REPEAT COUNT 

CLEAR THE CARY FLAG 

DIVIDE THE CP/M SECTOR # BY THE SIZE 
OF THE PHYSICAL SECTORS 



RESTORE THE SIDE BIT 

SAVE THE PHYSICAL SECTOR NUM3ER 

POINTER TO DESIRED DRIVE, TRACK, AND SECTOR 

POINTER TO BUFFER DRIVE, TRACK, AND SECTOR 

COUNT LOOP 

TEST IF DONE WITH COMPARE 

YES, MATCH. GO MOVE THE DATA 

GET A BYTE TO COMPARE 

TEST FOR MATCH 

BUMP POINTERS TO NEXT DATA ITEM 



; MATCH, CONTINUE TESTING 



************************* **************************************** 
* ^ 

* 
* 
* 
***************************************************************** 



* DRIVE, TRACK, AND SECTOR DON'T MATCH, FLUSH THE BUFFER IF 

* NECESSARY AND THEN REFILL. 
* 



D59B CD20D6 
D59E D8 



CALL 
RC 



FILL 



;FILL THE BUFFER WITH CORRECT PHYSICAL SECTOR 
;NO GOOD, RETURN WITH ERROR INDICATION 



************************** *************************************** 

* * 

* MOVE HAS BEEN MODIFIED TO CAUSE EITHER A TRANSFER INTO OR OUT * 

* THE BUFFER. * 

* * 

***************************************************************** 



D59F 3AE8D8 
D5A2 3D 



MOVE 



LDA 
DCR 



CPMSEC 
A 



;GET THE CP/M SECTOR TO TRANSFER 
; ADJUST TO PROPER SECTOR IN BUFFER 



:p/m macro assem 2.0 
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D5A3 


E600 




AN I 





D5A4 


= 


SECPSEC 


EQU 


$-1 


D5A5 


6F 




MOV 


L,A 


D5A6 


2600 




MVI 


H,0 


D5A8 


29 




DAD 


H 


D5A9 


29 




DAD 


H 


D5AA 


29 




DAD 


H 


D5AB 


29 




DAD 


H 


D5AC 


29 




DAD 


H 


D5AD 


29 




DAD 


H 


D5AE 


29 




DAD 


H 


D5AF 


11EFD8 




LXI 


D, BUFFER 


D5B2 


19 




DAD 


D 


D5B3 


EB 




XCHG 




D5B4 


210000 




LXI 


H,0 


D535 


= 


CPMDMA 


EQU 


$-2 


D5B7 


3E00 




MVI 


A,0 


D5B8 


= 


RDWR 


EQU 


$-1 


D5B9 


A 7 




ANA 


A 


D5BA 


C2C2D5 




JNZ 


INTO 


D5BD 


CD35D6 


OUTOF 


CALL 


MOVER 


D5C0 


AF 




XRA 


A 


D5C1 


C9 




RET 




D5C2 


EB 


INTO 


XCHG 




D5C3 


CD35D6 




CALL 


MOVER 


D5C6 


3E01 




MVI 


A,l 


D5C8 


32D5D5 




STA 


BUFWRTN 


D5CB 


3E00 




MVI 


A,0 


D5CC 


= 


WRITTYP 


EQU 


$-1 


D5CD 


3D 




DCR 


A 


D5CE 


3E00 




MVI 


A,0 


D5D0 


32CCD5 




STA 


WRITTYP 


D5D3 


C0 




RNZ 





STRIP OFF HIGH ORDERED BITS 

THE IS MODIFIED TO REPRESENT THE # OF 

CP/M SECTORS PER PHYSICAL SECTORS 
PUT INTO HL 

:FORM OFFSET INTO BUFFER 



BEGINNING ADDRESS OF BUFFER 

FORM 3EGINNING ADDRESS OF SECTOR TO TRANSFER 
DE = ADDRESS IN BUFFER 

GET DMA ADDRESS, THE IS MODIFIED TO 
CONTAIN THE DMA ADDRESS 

;THE ZERO GETS MODIFIED TO CONTAIN 

; A ZERO IF A READ, OR A 1 IF WRITE 

?TEST WHICH KIND OF OPERATION 
; TRANSFER DATA INTO THE BUFFER 



MOVE THE DATA, HL = DESTINATION 
DE = SOURCE 

?SET BUFFER WRITTEN INTO FLAG 
; CHECK FOR DIRECTORY WRITE 



;SET NO DIRECTORY WRITE 
;NO ERROR EXIT 

***************************************************************** 

* * 

* FLUSH WRITES THE CONTENTS OF THE BUFFER OUT TO THE DISK IF * 

* IT HAS EVER BEEN WRITTEN INTO. * 

* * 

***************************************************************** 



D5D4 3E00 


FLUSH 


MVI 


A,0 


D5D5 = 


BUFWRTN 


EQU 


$-1 


D5D6 A7 




ANA 


A 


D5D7 C8 




RZ 




D5D8 2118E4 




LXI 


H,DJWRITE 



; THE IS MODIFIED TO REFLECT IF 

THE BUFFER HAS BEEN WRITTEN INTO 

;TEST IF WRITTEN INTO 
;NOT WRITTEN, ALL DONE 
;WRITE OPERATION 



***************************************************************** 

* * 

* PREP PREPARES TO READ/WRITE THE DISK. RETRIES ARE ATTEMPTED. * 



CP/M macro ASSEM 2.0 



#014 



*** Cbios For CP/M Ver. 2.2 *** 



* UPON ENTRY, H&L MUST CONTAIN THE READ OR WRITE OPERATION * 

* ADDRESS. * 

* * 

***************************************************************** 



D5DB 


AF 


PREP XRA 


A 


D5DC 


32D5D5 


STA 


BUFWRTN 


D5DF 


2212D6 


SHLD 


RETRYOP 


D5E2 


060A 


MVI 


B, RETRIES 


D5E4 


C5 


RETRYLP PUSH 


B 


D5E5 


3AECD8 


LDA 


BUFDRV 


D5E8 


4F 


MOV 


C,A 


D5E9 


CD33D3 


CALL 


DJDRV 


D5EC 


3AEDD8 


LDA 


BUFTRK 


D5EF 


A7 


ANA 


A 


D5F0 


4F 


MOV 


C,A 


D5F1 


C5 


PUSH 


B 


D5F2 


CC09E4 


CZ 


DJHOME 


D5F5 


CI 


POP 


B 


D5F6 


CD0CE4 


CALL 


DJTRK 


D5F9 


3AEED8 


LDA 


BUFSEC 


D5FC 


F5 


PUSH 


PSW 


D5FD 


07 


RLC 




D5FE 


E601 


ANI 


1 


D600 


4F 


MOV 


C,A 


D601 


CD30E4 


CALL 


DJ3IDE 


D604 


Fl 


POP 


PSW 


D605 


E67F 


ANI 


7FH 


D607 


4F 


MOV 


C,A 


D608 


CD0FE4 


CALL 


DJSEC 


D60B 


01EFD8 


LXI 


B, BUFFER 


D60E 


CD12E4 


CALL 


DJDMA 


D611 


CD15E4 


CALL 


DJREAD 


D612 


= 


RETRYOP EQU 


$-2 


D614 


CI 


POP 


B 


D615 


3E00 


MVI 


A,0 


D617 


D0 


RNC 




D618 


05 


DCR 


B 


D619 


37 


STC 




D61A 


3EFF 


MVI 


A,0FFH 


D61C 


C8 


RZ 




D61D 


C3E4D5 


JMP 


RETRYLP 



; RESET BUFFER WRITTEN FLAG 

;SET UP THE READ/WRITE OPERATION 

; MAXIMUM NUMBER OF RETRIES TO ATTEMPT 

;SAVE THE RETRY COUNT 

;GET DRIVE NUMBER INVOLVED IN THE OPERATION 

7 SELECT THE DRIVE 
;TEST FOR TRACK ZERO 



HOME THE DRIVE IF TRACK 

RESTORE TRACK # 

SEEK TO PROPER TRACK 

GET SECTOR INVOLVED IN OPERATION 

SAVE THE SECTOR # 

BIT OF A EQUALS SIDE # 

STRIP OFF UNNECESSARY BITS 

C <- SIDE # 

SELECT THE SIDE 

A <- SECTOR # 

STRIP OFF SIDE BIT 

C <- SECTOR # 

SET THE SECTOR TO TRANSFER 

SET THE DMA ADDRESS 

;THE READ OPERATION IS MODIFIED TO WRITE 

; RESTORE THE RETRY COUNTER 

;NO ERROR EXIT STATUS 

; RETURN NO ERROR 

; UPDATE THE RETRY COUNTER 

; ASSUME RETRY COUNT EXPIRED 

; ERROR RETURN 

;TRY AGAIN 

***************************************************************** 

* * 

* FILL FILLS THE BUFFER WITH A NEW SECTOR FROM THE DISK. * 

* * 
***************************************************************** 



D620 CDD4D5 
D623 D8 
D624 11E9D8 
D627 21ECD8 
D62A. 0603 
D62C CD37D6 
D62F 2115E4 



FILL 



CALL 


FLUSH 


RC 




LXI 


D, CPMDRV 


LXI 


H, BUFDRV 


MVI 


B,3 


CALL 


MOVLOP 


LXI 


H, DJREAD 



; FLUSH BUFFER FIRST 

; CHECK FOR ERROR 

; UPDATE THE DRIVE, TRACK, AND SECTOR 

; NUMBER OF BYTES TO MOVE 
;COPY THE DATA 



CP/M MACRO ASSEM 2.0 #015 *** Cbios For CP/M Ver. 2.2 *** 
D632 C3DBD5 JMP PREP 



; SELECT DRIVE, TRACK, AND SECTOR. 
; THEN READ THE BUFFER 



***************************************************************** 

* * 

* MOVER MOVES 128 BYTES OF DATA. SOURCE POINTER IN DE, DEST * 

* POINTER IN HL. * 

* * 

***************************************************************** 



D635 


0680 


MOVER 


MVI 


B,128 


D637 


1A 


MOVLOP 


LDAX 


D 


D638 


77 




MOV 


M,A 


D639 


13 




INX 


D 


D63A 


23 




I NX 


H 


D63B 


05 




DCR 


B 


D63C 


C237D6 




JNZ 


MOVLOP 


D63F 


C9 




RET 





; LENGTH OF TRANSFER 
;GET A BTE OF SOURCE 
;MOVE IT 
;BUMP POINTERS 

; UPDATE COUNTER 

; CONTINUE MOVING UNTIL DONE 



***************************************************************** 



* TERMINAL DRIVER ROUTINES. IOBYTE IS INITIALIZED BY THE COLD * 

* BOOT ROUTINE, TO MODIFY, CHANGE THE "INTIOBY" EQUATE. THE * 

* I/O ROUTINES THAT FOLLOW ALL WORK EXACTLY THE SAME WAY. USING * 

* IOBYTE, THEY OBTAIN THE ADDRESS TO JUMP TO IN ORDER TO EXECUTE* 

* THE DESIRED FUNCTION. THERE IS A TABLE WITH FOUR ENTRIES FOR * 

* EACH OF THE POSSIBLE ASSIGNMENTS FOR EACH DEVICE. TO MODIFY * 

* THE I/O ROUTINES FOR A DIFFERENT i/O CONFIGURATION, JUST 

* CHANGE THE ENTRIES IN THE TABLES. 



* 
* 
* * 

***************************************************************** 



1teM\*/tti_ Mums 



E403 = 
E406 = 



CITTY EQU 
COTTY EQU 



DJCIN 
DJCOUT 



; INPUT FROM THE DISK JOCKEY 2D 
; OUTPUT TO THE DISK JOCKEY 2D 



***************************************************************** 

* * 

* CONST: GET THE STATUS FOR THE CURRENTLY ASSIGNED CONSOLE * 

* DEVICE. THE CONSOLE DEVICE CAN BE GOTTEN FROM IOBYTE, * 

* THEN A JUMP TO THE CORRECT CONSOLE STATUS ROUTINE IS * 

* PERFORMED. * 

* * 

***************************************************************** 



D640 21BAD6 
D643 C352D6 



CONST LXI 
JMP 



H, CSTBLE 
CONIN1 



; BEGINNING OF JUMP TABLE 
; SELECT CORRECT JUMP 



***************************************************************** 

* 

* CSREADER: IF THE CONSOLE IS ASSIGNED TO THE READER THEN A 

* JUMP WILL BE MADE HERE, WHERE ANOTHER JUMP WILL 

* OCCUR TO THE CORRECT READER STATUS. 
* 
***************************************************************** 



D646 21C2D6 



CSREADR LXI 



H,CSRTBLE 



; BEGINNING OF READER STATUS TABLE 
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D649 C36FD6 



JMP 



READERA 



***************************************************************** 

* * 

* CONIN: TAKE THE CORRECT JUMP FOR THE CONSOLE INPUT ROUTINE. * 

* THE, JUMP IS BASED ON THE TWO LEAST SIGNIFICANT BITS OF * 



* 
* 



IOBYTE . 



* 
* 



***************************************************************** 



D64C CDD4D5 
D64F 2192D6 



CONIN CALL 
LXI 



FLUSH 
H,CITBLE 



; FLUSH THE DISK BUFFER 

; BEGINNING OF CHARACTER INPUT TABLE 



* ENTRY AT CONIN1 WILL DECODE THE TWO LEAST SIGNIFICANT BITS 

* OF IOBYTE. THIS IS USED BY CONIN, CONOUT, AND CONST. 
* 



D652 3A0300 
D655 17 



CONIN 1 



LDA 
RAL 



IOBYTE 



* ENTRY AT SELDEV WILL FORM AN OFFSET INTO THE TABLE POINTED 

* TO BY H&L AND THEN PICK UP THE ADDRESS AND JUMP THERE. 
* 



D656 E606 SELDEV ANI 


6H 


D653 1600 


MVI 


D,0 


D65A 5F 


MOV 


E,A 


D65B 19 


DAD 


D 


D65C 7E 


MOV 


A,M 


D65D 23 


I NX 


H 


D65E 66 


MOV 


H,M 


D65F 6F 


MOV 


L,A 


D660 E9 


PCHL 





; STRIP OFF UNWANTED BITS 
;FORM OFFSET 

;ADD OFFSET 

;PICK UP HIGH BYTE 

;PICK UP LOW BYTE 
;FORM ADDRESS 
;GO THERE ! 



***************************************************************** 

* * 

* CONOUT: TAKE THE PROPER BRANCH ADDRESS BASED ON THE TWO LEAST * 

* SIGNIFICANT BITS OF IOBYTE. * 

* * 
***************************************************************** 



D661 C5 
D662 CDD4D5 
D665 CI 
D666 219AD6 
D669 C352D6 



CONOUT PUSH B 

CALL FLUSH 

POP B 

LXI H,COTBLE 

JMP CONIN 1 



;SAVE THE CHARACTER 

; FLUSH THE DISK BUFFER 

; RESTORE THE CHARACTER 

; BEGINNING OF THE CHARACTER OUT TABLE 

;DO THE DECODE 



***************************************************************** 



* READER: SELECT THE CORRECT READER DEVICE FOR INPUT. THE 

* READER IS SELECTED FROM BITS 2 AND 3 OF IOBYTE. 



****************************************************************. 



CP/M MACRO ASSEM 2.0 #317 *** Cbios For CP/M Ver. 2.2 *** 

D66C 21B2D6 READER LXI H,RTBLE ;BEGINNING OF READER INPUT TABLE 

* 

* ENTRY AT READERA WILL DECODE BITS 2 & 3 OF IOBYTE, USED 

* BY CSREADER. 
* 



D66F 3A0300 



READERA LDA 



IOBYTE 



* ENTRY AT READER1 WILL SHIFT THE BITS INTO POSITION, USED 

* BY LIST AND PUNCH. 
* 



D672 IF 
D673 C356D6 



READR1 RAR 
JMP 



SELDEV 



***************************************************************** 

* * 

* PUNCH: SELECT THE CORRECT PUNCH DEVICE. THE SELECTION COMES * 

* FROM BITS 4&5 OF IOBYTE. * 

* * 

***************************************************************** 



D676 21AAD6 
D679 3A0300 



PUNCH 



LXI 
LDA 



H,PTBLE 
IOBYTE 



; BEGINNING OF PUNCH TABLE 



* ENTRY AT PNCH1 ROTATES BITS A LITTLE MORE IN PREP FOR 

* SELDEV, USED BY LIST. 



D67C IF 
D67D IF 
D67E C372D6 



PNCH1 RAR 
RAR 
JMP 



READR1 



***************************************************************** 

* * 

* LIST: SELECT A LIST DEVICE BASED ON BITS 6&7 OF IOBYTE * 

* * 

***************************************************************** 



D631 21A2D6 
D6S4 3A0300 
D637 IF 
D633 IF 
D639 C37CD6 



LIST LXI 

LIST1 LDA 

RAR 

RAR 

JMP 



H,LTBLE 
IOBYTE 



PNCH1 



; BEGINNING OF THE LIST DEVICE ROUTINES 



***************************************************************** 

* * 

* LISTST: GET THE STATUS OF THE CURRENTLY ASSIGNED LIST DEVICE * 

* * 

***************************************************************** 



D68C 21CAD6 
D68F C384D6 



LISTST LXI 
JMP 



H,LSTBLE 
LIST1 



; BEGINNING OF THE LIST DEVICE STATUS 



CP/M MACRO ASSEM 2.0 



#018 



*** Cbios For CP/M Ver. 2.2 *** 



********************************************************** 

* * 

* IF CUSTOMIZING I/O ROUTINES IS BEING PERFORMED, THE TABLE * 

* BELOW SHOULD BE MODIFIED TO REFLECT THE CHANGES. ALL I/O * 

* DEVICES ARE .DECODED OUT OF IOBYTE AND THE JUMP IS TAKEN FROM * 

* THE FOLLOWING TABLES. * 

* * 

***************************************************************** 







* 
* 


CONSOLE INPUT 


TABLE 


M 


D692 


00D7 


CITBLE DW 


CIUC1 


e> 


D694 


15D7 




DW 


CICRT 


i 


D696 


6CD6 




DW 


READER 


t 


D693 


03E4 




DW 


CITTY 


■*- 



INPUT FROM USER CONSOLE 1 (CURRENTLY 

SWBD PARALLEL PORT 4) 
INPUT FROM CRT (CURRENTLY SWITCHBOARD 

SERIAL PORT 1) 
INPUT FROM READER (DEPENDS ON READER 

SELECTION) 
INPUT FROM TTY (CURRENTLY INPUT FROM 

DISK JOCKEY 2D) 






* CONSOLE OUTPUT TABLE 
* 



D69A D2D6 


COTBLE 


DW 


COCRT 


O 


D69C D2D6 






DW 


COCRT 


1 


D69E 81D6 






DW 


LIST 


z 


D6A0 06E4 






DW 


COTTY 


3 




* 
* 
* 


LIST 


DEVICE 


TABLE 




D6A2 06E4 


LTBLE 


DW 


COTTY 


o 


D6A4 D6D3 






DW 


COPTR 


i 


D6A6 D6D6 






DW 


COLPT 


2 


D6A8 E1D6 






DW . 


COUL1 


3~ 



OUTPUT TO CRT (MSDV) 
OUTPUT TO CRT (MSDV) 

OUTPUT TO LIST DEVICE (DEPENDS ON 
BITS 6&7 OF IOBYTE) 

OUTPUT TO TTY (CURRENTLY OUTPUT TO 
DISK JOCKEY 2D) 



azr 

C(LT 



OUTPUT TO TTY (CURRENTLY ASSIGNED 

BY INTIOBY, OUTPUT TO 2D) 
OUTPUT TO PRINTER 

OUTPUT TO LINE PRINTER (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 

OUTPUT TO USER LINE PRINTER 1 (CURRENTLY 
SWITCHBOARD SERIAL PORT 1 ) 



* PUNCH DEVICE TABLE 



D6AA 06E4 
D6AC D6D8 



PTBLE 



DW 



DW 



COTTY 



COPTR 



OUTPUT TO THE TTY (CURRENTLY ASSIGNED 

BY INTIOBY, OUTPUT TO 2D) 
OUTPUT TO PRINTER 



CP/M MACRO ASSEM 2.0 #019 
D6AE D6D6 DW 

D6B0 D6D6 DW 



*** Cbios For CP/M Ver. 2.2 *** 
C0UP1 



COUP2 



OUTPUT TO USER PUNCH 1 (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 

OUTPUT TO USER PUNCH 2 (CURRNTLLY 
SWITCHBOARD SERIAL PORT 1) 



* READER DEVICE INPUT TABLE 
* 



D632 03E4 
D6B4 15D7 
D6B6 15D7 
D6B8 15D7 



RTBLE 



DW 


CITTY 


DW 


CIPTR 


DW 


CIUR1 


DW 


CIUR2 



INPUT FROM TTY (CURRENTLY ASSIGNED 

BY INTIOBY, INPUT FROM 2D) 
INPUT FROM PAPER TAPE READER (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
INPUT FROM USER READER 1 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
INPUT FROM USER READER 2 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 



* CONSOLE STATUS TABLE 
* 



D6BA 


0CD7 


CSTBLE 


DW 


CSUC1 


D6BC 


29D7 




DW 


CSCRT 


D6BE 


46D6 




DW 


CSREADR 


D6C0 


21D7 


* 


DW 


CSTTY 



* STATUS FROM READER DEVICE 

* 



STATUS FROM SW3D PARALLEL PORT 4, AS 

READ FROM ATTN BIT 0) 
STATUS FROM CRT (CURRENTLY SWITCHBOARD 

SERIAL PORT 1) 
STATUS FROM READER (DEPENDS ON READER DEVICE ) 

STATUS OF TTY (CURRENTLY STSTUS FROM 
DISK JOCKEY 2D) 



D6C2 


21D7 


CS RTBLE 


DW 


CSTTY 


D6C4 


29D7 




DW 


CSPTR 


D6C6 


29D7 




DW 


CSUR1 


D6C8 


29D7 




DW 


CSUR2 



STATUS FROM TTY (CURRENTLY ASSIGNED 

BY INTIOBY, STATUS OF 2D) 
STATUS FROM PAPER TAPE READER (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
STATUS FROM USER READER 1 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
STATUS OF USER READER 2 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 



* STATUS FROM LIST DEVICE 
* 



D6CA 


37D7 


LSTBLE 


DW 


READY 


D6CC 


37D7 




DW 


READY 


D6CE 


32D7 




DW 


LSLPT 


D6D0 


32D7 




DW 


LSLPT 



; CONSOLE ALWAYS READY 
;GET LIST STATUS 



***************************************************************** 

* * 

* ROUTINES FOR MY SYSTEM. J. J. O'BRIEN * 

* * 



CP/M MACRO ASSEM 2.0 #020 *** Cbios For CP/M Ver. 2.2 *** 

***************************************************************** 



* MSDV VIDEO DRIVER 
* 



D6D2 79 
D6D3 C300E8 



COCRT 



MOV 
JMP 



A,C 
MSDV 



;MSDV WANTS DATA IN A 
;G0 THERE 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES SET OUTPUT DEVICE TO OUTPUT TO THE * 

* SWITCHBOARD SERIAL PORT 1. * 

* * 
***************************************************************** 



; OUTPUT FROM PAPER TAPE PUNCH 

; OUTPUT FROM USER PUNCH 1 

; OUTPUT FROM USER PUNCH 2 

; OUTPUT FROM LINE PRINTER, GET STATUS 

;WAIT UNTIL OK TO SEND 



D6D6 


= 


COPTP 


EQU 


$ 


D6D6 


= 


COUP1 


EQU 


$ 


D6D6 


= 


COUP 2 


EQU 


$ 


D6D6 


DB02 


COLPT 


IN 


2 


D6D8 


E680 




AN I 


80H 


D6DA 


CAD6D6 




JZ 


COLPT 


D6DD 


79 




MOV 


A,C 


D6DE 


D301 




OUT 


1 


D6E0 


C9 




RET 





; OUTPUT THE CHARACTER 



<2<3C&7 




***************************************************************** 

* * 

* CUSTOM I/O PRINTER DRIVER FOR DIABLO PRINTER WITH 1200 BAUD * 

* ETX/ACK HANDSHAKE. * 

* * 
***************************************************************** 



; OUTPUT THE CHARACTER 



D6E1 


CDD6D6 


COUL1 


CALL 


COLPT 


D6E4 


3AFFD6 




LDA 


COUNT 


D6E7 


3D 




DCR 


A 


D6E8 


32FFD6 




STA 


COUNT 


D6EB 


C0 




RNZ 




D6EC 


3S4E 




MVI 


A, 78 


D6EE 


32FFD6 




STA 


COUNT 


D6F1 


0E03 




MVI 


C , AETX 


D6F3 


CDD6D6 




CALL 


COLPT 


D6F6 


CD15D7 


PWAIT 


CALL 


CIPTR 


D6F9 


FE06 




CPI 


AACK 


D6FB 


C2F6D6 




JNZ 


PWAIT 


D6FE 


C9 




RET 




D6FF 


32 


COUNT 


DB 


50 



**************************************************************** 

* * 

* THE FOLLOWING EQUATES SET THE INPUT TO COME FROM THE SWBD * 

* PARALLEL PORT 4, WITH STATUS ON ATTENTION PORT BIT 0. * 

* * 



S 



} Caoc f 



y 



X 



/ 



\ 



CP/M MACRO ASSEM 2.0 #021 *** Cbios For CP/M Ver. 2.2 *** 

******* ********************************************************* 

CIUC1 



D700 DB03 
D702 E601 
D704 CA00D7 
D707 DB04 
D709 E67F 
D70B C9 

D70C DB03 
D70E E601 
D710 EE01 
D712 C324D7 



;GET ATTENTION BYTE 
;GET BIT ONLY 
;WAIT FOR CHARACTER 
;GET CHARACTER 
; STRIP OFF THE PARITY 



CSUC1 IN 3 ;GET ATTENTION BYTE 

;GET BIT ONLY 
; CHANGE POLARITY 
; RETURN PROPER INDICATION 

***************************************************************** 

* * 

* THE FOLLOWING EQUATES SET THE INPUT FROM THE DEVICES TO COME * 

* FROM THE SWITCHBOARD SERIAL PORT 1. * 

* * 

***************************************************************** 



IN 


3 


ANI 


1 


JZ 


CIUC1 


IN , 


4 


ANI 


7FH 


RET 




IN 


3 


ANI 


1 


XRI 


1 


JMP 


STAT 



D715 


= 


CICRT 


EQU 


$ 


D715 


= 


CIUR1 


EQU 


$ 


D715 


= 


CIUR2 


EQU 


$ 


D7I5 


DB.02 


CIPTR 


IN 


2 


D717 


E640 




ANI 


40H 


D719 


CA15D7 




JZ 


CIPTR 


D71C 


DB01 




IN 


1 


D71E 


E67F 




ANI 


7FH 


D720 


C9 




RET 





INPUT FROM CRT 

INPUT FROM USER READER 1 

INPUT FROM USER READER 2 

INPUT FROM PAPER TAPE READER, GET STATUS 

WAIT FOR CHARACTER 



; STRIP OFF THE PARITY 



***************************************************************** 

* * 

* CONSOLE STATUS ROUTINES, TEST IF A CHARACTER HAS ARRIVED. * 

* * 
***************************************************************** 



D721 


CD21E4 


CSTTY 


CALL 


DJTSTAT 


D724 


3E00 


STAT 


MVI 


A,0 


D726 


C0 




RNZ 




D727 


3D 




DCR 


A 


D728 


C9 




RET 





; STATUS FROM DISK JOCKEY 2D 

;PREP FOR ZERO RETURN 

; NOTHING FOUND 

; RETURN WITH 0FFH 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES CAUSE THE DEVICES TO GET STATUS FROM * 

* THE SWITCHBOARD SERIAL PORT 1. * 

* * 
***************************************************************** 



D729 


= 


CSUR1 


EQU 


$ 


D729 


= 


CSUR2 


EQU 


$ 


D729 


= 


CSPTR 


EQU 


$ 


D729 


DB02 


CSCRT 


IN 


2 


D72B 


E640 




ANI 


40H 


D72D 


EE40 




XRI 


40H 



.•STATUS OF USER READER 1 
; STATUS OF USER READER 2 
; STATUS OF PAPER TAPE READER 
; STATUS FROM CRT, GET STATUS 
; STRIP OF DATA READY BIT 
;MAKE CORRECT POLARITY 



CP/M MACRO ASSEM 2.0 #022 *** Cbios For CP/M Ver. 2.2 *** 
D72F C324D7 JMP STAT ; RETURN PROPER INDICATION 

***************************************************************** 

* * 

* LIST DEVICE STATUS ROUTINES. * 

* * 

***************************************************************** 



;ALL 0TF1ER DEVICES WAIT 



D732 


DB02 


LSLPT 


IN 


2 


D734 


E680 




ANI 


80H 


D736 


C8 




RZ 




D737 


3EFF 


READY 


MVI 


A,0 


D739 


C9 




RET 





D73A 0E19 
D73C DB07 
D73E E601 
D740 C6C0 
D742 320300 
D745 C30CD3 



* THIS INITIALIZING ROUTINE SAMPLES BIT OF SWBD PORT 7 TO 

* DETERMINE IF THE KEYBOARD IS PLUGGED IN. IF THE KEYBOARD IS 

* PLUGGED IN, THE LSB RETURNS A 0. OTHERWISE, IT IS A 1. 

* THIS 1 IS ADDED TO IOBYTE TO CHANGE THE CONSOLE INPUT FROM 

* THE SWBD PARALLEL PORT 4 (THE KEYBOARD) TO THE SWBD SERIAL 

* PORT THAT RECEIVES RS232 DATA FROM THE RS232 TERMINAL. 
* 



***************************************************************** 



TINIT 



MVI 

IN 

ANI 

ADI 

STA 

JMP 



C, CLEAR 

7 

1 

INTIOBY 

IOBYTE 

COUT 



; INITIALIZE THE TERMINAL ROUTINE 
;GET KEYBOARD INTERLOCK BYTE 
;GET BIT 1 ONLY 
;ADD INTIOBY TO KEYBOARD BIT 
; INITIALIZE IOBYTE 



***************************************************************** 



* 
* 
* 
* 
* 
* 
* 
* 



XLT TABLES (SECTOR SKEW TABLES) FOR CP/M 2.0. THESE TABLES 
DEFINE THE SECTOR TRANSLATION THAT OCCURS WHEN MAPPING CP/M 
SECTORS TO PHYSICAL SECTORS ON THE DISK. THERE IS ONE SKEW 
TABLE FOR EACH OF THE POSSIBLE SECTOR SIZES. CURRENTLY THE 
TABLES ARE LOCATED ON TRACK SECTORS 6 AND 8. THEY ARE 
LOADED INTO MEMORY IN THE CBIOS RAM BY THE COLD BOOT ROUTINE. 



* 
* 
* 
* 
* 
* 
* 
* 





ft'^V 



Ha J 






T/^tf M\j\ a j ' 



***************************************************************** 



D748 00 XLT128 DB 

D749 01070D1319 DB 

D74E 050B1117 DB 

D752 03090F15 DB 

D756 02030E141A DB 

D75B 060C1218 DB 

D75F 040A1016 DB 

D763 00 XLT255 DB 

D764 0102131425 DB 

D76A 0304151627 DB 

D770 0506171829 DB 

D776 0708191A2B DB 





1,7,13,19,25 

5,11,17,23 

3,9,15,21 

2,8,14,20,26 

6,12,18,24 

4,10,16,22 



1,2,19,20, 37,33 

3,4,21,22,39,40 

5,6,23,24,41,42 

7,8,25,26,43,44 



cp/m macro assem 2.0 



#02: 



*** Cbios For CP/M Ver. 2.2 



*** 



D77C 


090A1B1C2D 


D782 


0B0C1D1E2F 


D783 


0D0E1F2031 


D73E 


0F10212233 


D794 


11122324 


D798 


00 : 


D799 


0102030411 


D7A1 


2122232431 


D7A9 


0506070815 


D731 


2526272335 


D7B9 


090A0B0C19 


D7C1 


292A2B2C39 


D7C9 


0D0E0F101D 


D7D1 


2D2E2F30 


D7D5 


00 


D7D6 


0102030405 


D7DE 


191A1B1C1D 


D7E6 


3132333435 


D7EE 


090A0B0C0D 


D7F6 


2122232425 


D7FE 


393A3B3C3D 


D806 


1112131415 


D30E 


292A2B2C2D 



XLT512 



XLT124 



DB 
DB 
DB 
DB 
DB 

DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 

DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 



9,10,27,28,45,46 
11, 12,29,30,47,48 
13, 14,31,32,49,50 
15,16, 33,34,51,52 
17,18,35,36 



1,2,3,4,17,18,19,23 

33, 34,35,36,49,50,51,52 

5,6,7,3,21,22,23,24 

37,33,39,43,53,54,55,56 

9,10,11,12,25,26,27,28 

41,42,43,44,57,58,59,60 

13,14,15,16,29,30,31, 32 

45,46,47,43 



1,2, 3,4,5,6, 7, 8 
25,26,27,23,29,30,31, 32 
49, 50,51,52,53,54,55, 56 
9,10,11,12,13,14,15, 16 
33,34,35,36, 37,38, 39,40 
57,58,59,60,61,62,63,64 
17,18,19,20,21,22,23, 24 
41,42,43,44,45,46,47,43 



**************************************************************** 

* * 

* EACH OF THE FOLLOWING TABLES DESCRIBES A DISKETTE WITH THE * 

* SPECIFIED CHARACTERISTICS. THE TABLES ARE CURRENTLY STORED * 

* ON TRACK SECTOR 13. THEY ARE READ INTO MEMORY BY THE GOCPM * 

* ROUTINE IN THE CBIOS FOR CP/M VER 2.0. * 

* * 

***************************************************************** 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 123 BYTE SECTORS, * 

* SINGLE DENSITY, AND SINGLE SIDED. * 

* * 

***************************************************************** 



D316 


1A00 


DPB128S DW 


26 


D818 


03 


DB 


3 


D819 


07 


DB 


7 


D81A 


00 


DB 





D31B 


F200 


DW 


242 


D81D 


3F00 


DW 


63 


D81F 


C0 


DB 


0C0H 


D820 


00 


DB 





D821 


1000 


DW 


16 


D823 


0200 


DW 


2 


D325 


01 


DB 


1H 



CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*( 

LOG 2 

8 IF 



SECTORS/ TRACK 



(#CPM SECTORS/PHYSICAL SECTOR) -1) + 
UBYTES PER SECTOR/ 123) + 1 + 
DOUBLE SIDED. 



CP/M MACRO ASSEM 2.0 #024 *** Cbios For CP/M Ver. 2.2 *** 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 256 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 

* * 

***************************************************************** 



D826 


3400 


DPB256S DW 


52 


D823 


04 


DB 


4 


D329 


0F 


DB 


15 


D82A 


00 


DB 





D82B 


F200 


DW 


242 


D32D 


7F00 


DW 


127 


D82F 


C0 


DB 


0C0H 


D830 


00 


DB 





D831 


2000 


DW 


32 


D833 


0200 


DW 


2 


D835 


12 


DB 


12H 



CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*( 

LOG 2 

8 IF 



SECTORS/ TRACK 



(#CPM SECTORS/PHYSICAL SECTOR) 
(#BYTES PER SECTOR/ 128) + 1 + 
DOUBLE SIDED. 



•1) + 



***************************************************************** 



* 
* 
* 

- _ _____ .______, ,.____ __-__.__.,-__ __ .__ -_«._,___-- ____.< w 

* * 

***************************************************************** 



* THE FOLLOWING DPB DEFINES A DISKETTE AS 512 BYTE SECTORS, 

* DOUBLE DENSITY, AND SINGLE SIDED. 



D836 


3C00 


DPB512S DW 


60 


D838 


04 


DB 


4 


D839 


0F 


DB 


15 


D83A 


00 


DB 





D83B 


1301 


DW 


. 230 


D83D 


7F00 


DW 


127 


D83F 


C0 


DB 


0C0H 


D840 


00 


DB 





D841 


2000 


DW 


32 


D843 


0200 


DW 


2 


D845 


33 


DB 


33H 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS/PHYSICAL SECTOR) 

LOG2(#BYTES PER SECTOR/ 128) + 1 + 

8 IF DOUBLE SIDED. 



-1) + 



********* ******************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 1024 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 

* * 
***************************************************************** 



D346 4000 


DP1024S 


DW 


64 


D843 04 




DB . 


4 


D84.9 0F 




DB 


15 


D84A 00 




DB 





D84B 2B01 




DW 


299 


D84D 7F00 




DW 


127 



;CP/M SECTORS/TRACK 

;BSH 

;BLM 

;EXM 

;DSM 

; DRM 



CP/M MACRO ASS EM 2.0 #325 *** Cbios For CP/M Ver. 2.2 *** 



D84F C0 
D350 00 
D851 2000 
D853 0200 
D855 74 



DB 
DB 
DW 
DW 

DB 



0C0H 



32 

2 

74H 



AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS/PHYSICAL SECTOR) -1) + 

L0G2(#BYTES PER SECTOR/ 128) + 1 + 

8 IF DOUBLE SIDED. 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 128 BYTE SECTORS, * 

* SINGLE DENSITY, AND DOUBLE SIDED. * 



***************************************************************** 



D856 


3400 


DPB 12 3D DW 


52 


D858 


04 


DB 


4 


D359 


0F 


DB 


15 


D85A 


01 


DB 


1 


D85B 


F200 


DW 


242 


D85D 


7F00 


DW 


127 


D85F 


C0 


DB 


0C0H 


D860 


00 


DB 





D361 


2000 


DW 


32 


D363 


0200 


DW 


2 


D365 


09 


D3 


9H 



CP/M sectors/track 

BSH 
BLM 
EXM 
DSH 
DRM 
AL0 
AL1 
CKS 
OFF 



***************************************************************** 

* * 

* THE FOLLOWING DP3 DEFINES A DISKETTE AS 256 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 

***************************************************************** 



D366 


6300 


DPB2 56D DW 


104 


D368 


04 


DB 


4 


D869 


0F 


DB 


15 


D36A 


00 


DB 





D86B 


E601 


DW 


486 


D86D 


FF00 


DW 


255 


D36F 


F0 


DB 


0F0H 


D870 


00 


DB 





D871 


4000 


DW 


64 


D373 


0200 


DW 


2 


D875 


1A 


DB 


1AH 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 512 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 

***************************************************************** 



D376 


7800 


DPB 51 2D DW 


120 


D878 


04 


DB 


4 


D379 


0F 


DB 


15 



;CP/M SECTORS/TRACK 

;BSH 

;BLM 



CP/M MACRO ASSEM 2.0 #026 



*** Cbios For CP/M Ver. 2.2 *** 



D87A 00 
D87B 3102 
D87D FF00 
D87F F0 
D880 00 
D881 4000 
D883 0200 
D335 33 



DB 





DW 


561 


DW 


255 


DB 


0F0H 


DB 





DW 


64 


DW 


2 


DB 


3BH 



; EXM 
;DSM 
;DRM 
;AL0 
;AL1 
;CKS 
;OFF 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 1024 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 

***************************************************************** 



D386 


3000 


DP1024D DW 


128 


D333 


04 


DB 


4 


D389 


0F 


DB 


15 


D38A 


00 


DB 





D88B 


5702 


DW 


599 


D33D 


FF00 


DW 


255 


D88F 


F0 


DB 


0F0H 


D890 


00 


DB 





D891 


4000 


DW 


64 


D393 


0200 


DW 


2 


D895 


7C 


D3 


7CH 



cp/m sectors/track 

BSH 
BLM 
EXM 
DSM 
DRM 
AL0 
AL1 
CKS 
OFF 



***************************************************************** 

* * 

* CP/M DISK PARAMETER HEADERS, UNITIALIZED. * 

* * 

***************************************************************** 



D396 


0000 DPZERO 


DW 





D398 


0003000000 


DW 


0,0,0 


D89E 


1BDF 


DW 


DIRBUF 


D8A0 


0000 


DW 





D8A2 


1BDE 


DW 


CSV0 


D8A4 


EFDC 


DW 


ALV0 


D8A6 


0000 DPONE 


DW 





D8A8 


0000000000 


DW 


0,0,0 


D8AE 


1BDF 


DW 


DIRBUF 


D8B0 


0000 


DW 





D8B2 


5BDE 


DW 


CSV1 


D8B4 


3ADD 


DW 


ALV1 


D8B6 


0000 DPTWO 


dw 





D8B8 


3000000000 


DW 


0,0,0 


D3BE 


1BDF 


DW 


DIRBUF 


D8C0 


0000 


DW 





D8C2 


9BDE 


DW 


CSV2 


D8C4 


35DD 


DW 


ALV2 



; ADDRESS OF TRANSLATION TABLE (FILLED 

IN BY SETDRV) 
.-USED BY BDOS 

; ADDRESS OF DIRECTORY BUFFER 
.-ADDRESS OF DPB (FILLED IN BY SETDRV ) 
.•DIRECTORY CHECK VECTOR 
7 ALLOCATION VECTOR 



CP/M MACRO ASSEM 2.0 #027 *** Cbios For CP/M Ver. 2.2 *** 



D8C6 0000 DPTHRE DW 

D3C8 0000000000 DW 0,0,0 

D8CE 1BDF DW DIRBUF 

D8D0 0000 DW 

D8D2 DBDE DW CSV3 

D8D4 D0DD DW ALV3 



************************************************************* 

* * 

* ROUTINE FOR OKIDATA PRINTER * 

* * 

***************************************************************** 




W Miuij 






D8D6 DB02 


COPTR 


IN 


2 


D8D8 E608 




ANI 


3 


DSD A CAD6D8 




JZ 


COPTR 


D8DD DB05 


COPTR1 


IN 


5 


D8DF E601 




ANI 


1 


D8E1 CADDD8 




JZ 


COPTR1 


D8E4 79 




MOV 


A,C 


D8E5 D300 




OUT 





D8E7 C9 




RET 





; INPUT FROM PORT 2 
?WAIT UNTIL OK TO SEND 

; BUFFER FULL? 

;WAIT UNTIL PRINTER READY 
; OUTPUT THE CHARACTER 



***************************************************************** 

* * 

* CBIOS RAM LOCATIONS THAT DON'T NEED INITIALIZATION. * 

* * 

***************************************************************** 



D8E8 


00 


CPMSEC 


DB 





D8E9 


00 


CPMDRV 


DB 





D8EA 


00 


CPMTRK 


DB 





D8EB 


00 


TRUESEC 


DB 





D8EC 


00 


BUFDRV 


DB 





D8ED 


00 


BUFTRK 


DB 





D8EE 


00 


BUFSEC 


DB 





D8EF 




BUFFER 


DS 


1024 


DCEF 




ALV0 


DS 


75 


DD3A 




ALV1 


DS 


75 


DD85 




ALV2 


DS 


75 


DDD0 




ALV3 


DS 


75 


DE1B 




CSV0 


DS 


64 


DE5B 




CSV1 


DS 


64 


DE9B 




CSV2 


DS 


64 


DEDB 




CSV3 


DS 


64 


DF1B 




DIRBUF 


DS 


128 



CP/M SECTOR # 
CP/M DRIVE # 

CP/M TRACK # 

DISK JOCKEY SECTOR THAT CONTAINS CP/M SECTOR 

DRIVE THAT BUFFER BELONGS TO 

TRACK THAT BUFFER BELONGS TO 

SECTOR THAT BUFFER BELONGS TO 

MAXIMUM SIZE BUFFER FOR IK SECTORS 

ALLOCATION VECTOR FOR DRIVE A 
ALLOCATION VECTOR FOR DRIVE B 
ALLOCATION VECTOR FOR DRIVE C 
ALLOCATION VECTOR FOR DRIVE D 
DIRECTORY CHECK VECTOR FOR DRIVE A 
DIRECTORY CHECK VECTOR FOR DRIVE B 
DIRECTORY CHECK VECTOR FOR DRIVE C 
DIRECTORY CHECK VECTOR FOR DRIVE D 
DIRECTORY BUFFER 



DF9B 



END 



CP/M MACRO ASSEM 2.0 



#023 



*** Cbios For CP/M Ver. 2.2 *** 



0306 


AACK 


000D 


ACR 


0003 


AETX 


000A 


ALF 


DCEF 


ALV0 


DD3A 


ALV1 


DD85 


ALV2 


DDD0 


ALV3 


D3FA 


AUTOFLG 


C500 


3 DOS 


9000 


BIAS 


D300 


BIOS 


D8EC 


BUFDRV 


0080 


BUFF 


D8EF 


BUFFER 


D8EE 


BUFSEC 


D3ED 


BUFTRK 


D5D5 


BUFWRTN 


D3A0 


CBOOT 


BD00 


CCP 


0004 


GDISK 


D715 


CI CRT 


D715 


CIPTR 


D692 


CITBLE 


E403 


CITTY 


D700 


CIUC1 


D715 


CIUR1 


D715 


CIUR2 


D3F2 


CLDBOT 


0019 


CLEAR 


D3FB 


CMNDBEG 


D3FB 


CMNDEND 


D6D2 


COCRT 


D6D6 


COLPT 


D64C 


CONIN 


D652 


C0NIN1 


D661 


CONOUT 


D640 


CONST ■ 


D6D6 


COPTP 


D3D6 


COPTR 


DSDD 


C0PTR1 


D69A 


COTBLE 


E406 


COTTY 


D6E1 


COUL1 


D6FF 


COUNT 


D6D6 


GOUP1 


D6D6 


COUP2 


D30C 


COUT 


D5B5 


CPMDMA 


D8E9 


CPMDRV 


0016 


CPMREV 


D8E8 


CPMSEC 


D3EA 


CPMTRK 


D729 


CSCRT 


D729 


CSPTR 


D645 


CSREADR 


D6C2 


CSRTBLE 


D6BA 


CSTBLE 


D721 


CSTTY 


D70C 


CSUC1 


D729 


CSUR1 


D729 


CSUR2 


DE1B 


CSV0 


DE5B 


CSV1 


DE9B 


CSV2 


DEDB 


CSV3 


D3F9 


CWFLG 


0008 


DBLSID 


DF1B 


DIRBUF 


D533 


DIVDONE 


D57A 


DIVLOOP 


E403 


DJCIN 


E406 


DJCOUT 


E42D 


DJDEN 


E412 


DJDMA 


D333 


DJDRV 


E42A 


DJERR 


E409 


DJHOME 


E400 


DJRAM 


E415 


D J READ 


E40F 


DJSEC 


E41B 


DJSEL 


E430 


DJSIDE 


E427 


DJSTAT 


E4.0C 


DJTRK 


E421 


DJTSTAT 


E418 


DJWRITE 


D886 


DP1024D 


D846 


DP1024S 


D856 


DP3128D 


D816 


DPB128S 


D866 


DPB256D 


D826 


DPB256S 


D876 


DPB512D 


D336 


DPB512S 


D8A6 


DPONE 


D8C6 


DPTHRE 


D8B6 


DPTWO 


D893 


DPZERO 


D590 


DTSLOP 


0005 


ENTRY 


D620 


FILL 


D5D4 


FLUSH 


D541 


GETDPB 


D3B3 


GOCPM 


D490 


HOME 


00C0 


INTI03Y 


D5C2 


INTO 


0003 


IOBYTE 


D681 


LIST 


D684 


LIST1 


D63C 


LISTST 


D732 


LSLPT 


D6CA 


LSTBLE 


D6A2 


LTBLE 


0004 


MAXDISK 


D393 


MESSAGE 


D59F 


MOVE 


D635 


MOVER 


D637 


MOVLOP 


E800 


MSDV 


0033 


MSIZE 


D45E 


NEWDMA 


D43F 


NEWSEC 


D456 


NOWRAP 


E000 


ORIGIN 


D5BD 


OUTOF 


D67C 


PNCH1 


D5DB 


PREP 


D336 


PROMPT 


D6AA 


PTBLE 


D676 


PUNCH 


D6F6 


PWAIT 


D5B8 


RDWR 


D66C 


READER 


D569 


READ 


D66F 


READERA 


D672 


READR1 


D737 


READY 


D56D 


REDWRT 


000A 


RETRIES 


D5E4 


RETRYLP 


D612 


RETRYOP 


00 IE 


REVNUM 


D632 


RTBLE 


D5A4 


SECPSEC 


D56E 


SECSIZ 


D497 


SECT RAN 


D656 


SELDEV 


D48A 


SETDMA 


D4C6 


SETDRV 


D524 


SETDRV1 


D485 


SETSEC 


D492 


SETTRK 


D4A5 


SIDE A 


D517 


SIDEOK 


D4A8 


SIDEONE 


D4AE 


SIDETWO 


D724 


STAT 


D73A 


TINIT 


0100 


TPA 


D8SB 


TRUESEC 


D43E 


WARMLOD 


D472 


WARMRD 


D303 


WBOOTE 


D3FC 


WBOOT 


0000 


WBOT 


D400 


WFLG 


D562 


WRITE 


D5CC 


WRITTYP 


D475 


WRMREAD 


D7D5 


XLT124 


D743 


XLT123 


D763 


XLT256 


D793 


XLT512 


D55A 


XLTS 


D53D 


ZRET 















